vb System.Tuple<T1>.Item1类(方法)实例源码

' 导入命名空间
Imports System.Numerics

Module modMain
   Public Sub Main()
      Dim tuple1 = Tuple.Create(-1.23445e-32)
      ' Display information about this singleton.
      Dim tuple1Type As Type = tuple1.GetType()
      Console.WriteLine("First 1-Tuple:")
      Console.WriteLine("   Type: {0}", tuple1Type.Name)
      Console.WriteLine("   Generic Parameter Type: {0}", 
                        tuple1Type.GetGenericArguments()(0))
      Console.WriteLine("   Component Value: {0}", tuple1.Item1)
      Console.WriteLine("   Component Value Type: {0}", 
                        tuple1.Item1.GetType().Name)
      Console.WriteLine()
      
      Dim tuple2 As New Tuple(Of BigInteger)(1.83789322281780983781356676e103)
      ' Display information about this singleton.
      Dim tuple2Type As Type = tuple2.GetType()
      Console.WriteLine("Second 1-Tuple:")
      Console.WriteLine("   Type: {0}", tuple2Type.Name)
      Console.WriteLine("   Generic Parameter Type: {0}", 
                        tuple2Type.GetGenericArguments()(0))
      Console.WriteLine("   Component Value: {0}", tuple2.Item1)
      Console.WriteLine("   Component Value Type: {0}", 
                        tuple2.Item1.GetType().Name)
   End Sub
End Module